home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t1.d64 / cross-ref.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  7 lines
  1. 100 PRINT" CROSS REF":PRINT"[160]    JIM BUTTERFIELD"
  2. 115 W=06
  3. 120 CLOSE1:INPUT"NAME OF PROGRAM";N$
  4. 130 OPEN1,8,3,N$+",P,R":GET#1,X$,Y$:IFX$<>CHR$(1)GOTO120
  5. 190 SYS2692:CLOSE1:INPUT"PRINTER";Z$:P=3:IFASC(Z$)=89THENP=4:W=11
  6. 200 OPEN4,P:PRINT#4,"CROSS-REF: ";N$:POKE190,W:SYS3136:PRINT#4:CLOSE4
  7.